ЗАВДАННЯ.
Задано функцію 6.1x3(5.2x5+4.3x-4(2.8x-1 і значення меж інтервалу та кроку табулювання: a= 1; b=101; x= 1;
ПОСТАНОВКА ЗАДАЧІ.
Вхідними даними програми є границі інтервалу табулювання а, b та крок зміни аргументу x. Спосіб введення даних (присвоєнням, з клавіатури, раніш підготованих у файлі даних, чи використовуючи типізовані константи) обирається розробником програми. Методом розрахунку є безпосереднє обчислення значення за заданою формулою. При більш складних функціях обчислення реалізується за допомогою підпрограми-функції. Обчислення повторюються багаторазово для різних значень аргументу.
Виведення результатів обчислень ускладнюється тим, що всі задані для обчислення значення функції не можуть бути одночасно розміщені на екрані. Тому необхідно організувати поекранний вивід, а саме:
вивести ту кількість рядків таблиці, яка розміщується на екрані (сторінку);
затримати подальший вивід до команди користувача (натиснення клавіші);
вивести наступну сторінку з початку екрану.
На екран мають бути виведені (див. Рис. 0.1):
шапка таблиці;
значення аргументу та відповідні значення функції;
номер виведеної сторінки.
Сторінка хх
+--------------+-------------+
| Аргумент | Функція |
+--------------+-------------+
| | |
Рис. 0.1. Ескіз формату виведення таблиці на екран EOM.
2.РОЗРОБКА СТРУКТУРИ ДАНИХ.
Для реалізації поставленої задачі необхідно передбачити крім змінних, що містять початкові дані, змінні та константи для зберігання допоміжних величин, таких як кількість рядків на сторінку, номер сторінки, проміжних змінних для спрощення запису заданого виразу та скорочення кількості операцій, тощо. Приклад розробки структури даних приведений в Табл. 0.1.
Табл. 0.1. Розробка структури даних.
Позначення
Ім’я
Тип
Призначеня, опис
а
a
дійсна змінна
початок інтервалу табулювання, вхідна
b
b
-“-
кінець інтервалу табулювання, вхідна
x
x
-“-
аргумент функції
x
dx
-“-
крок табулювання, вхідна
f(x)
fx(x)
функція
підпрограма обчислення функції
y
y
дійсна змінна
значення функції
Row
ціла змінна
номер рядка на сторінці
Page
-“-
номер сторінки
ColumnsNum
-“-
кількість рядків, що можуть бути розміщені на сторінці
3.РОЗРОБКА АЛГОРИТМУ
Після введення вхідних даних доцільно очистити екран та вивести шапку таблиці і номер сторінки. Оскільки кількість обчислень можна визначити, то для табулювань потрібно використати цикл з параметром. Для визначення моменту заповнення екрану необхідно організувати лічильник виведених рядків таблиці та порівнювати його з кількістю рядків, що можуть бути розміщені на екрані. При заповненні екрану необхідно організувати затримку, обнулити лічильник рядків, збільшити на 1 лічильник сторінок та продовжити виведення з першого рядка. Для обчислення складної функції, доцільне виділення її у підпрограму. Спрощена блок схема алгоритму наведена на Ошибка! Источник ссылки не найден..
Блок-схема алгоритму табулювання функції:
. 4.Текст програми.
program table;
uses CRT;
const MaxRowsNum=24;
var a,b,dx,x,y:real;
Page:integer;
Row:integer;
ColumnsNum:integer;
function f(a:real):real;
begin
f:=6.1*a*a*a-5.2*exp(5*ln(a))+4.3/exp(4*ln(a))-2.8/x;
end;
Procedure Zatrymka;
begin
Repeat until KeyPressed;
end;
begin
ClrScr;
WriteLn('Obchyslennja znachen funktsiji y=6.1*a*a*a-5.2*exp(5*ln(a))+4.3/exp(4*ln(a))-2.8/x');
Write('Liva granytsja intervalu: '); ReadLn(a);
Write('Prava granytsja intervalu: '); ReadLn(b);
Write('Krok: '); ReadLn(dx);x:=a;
ClrScr;
Page:=1;Row:=5;
GotoXY(1,1);Write('Storinka:');GotoXY(10,1);Write(Page);
GotoXY(1,2);
WriteLn('+--------------------------------------+--------------------------------------+');
WriteLn('| Argument | Functsija |');
WriteLn('+--------------------------------------+--------------------------------------+');
repe...
